home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 December / PCWorld_2007-12_cd.bin / domacnost a kancelar / autoit / autoit-v3-setup.exe / Examples / Helpfile / _ArraySearch.au3 < prev    next >
Text File  |  2007-09-08  |  602b  |  20 lines
  1. #Include<Array.au3>
  2. Dim $Array[6]
  3. $Array[0] = "String0|SubString0"
  4. $Array[1] = "String1|SubString1"
  5. $Array[2] = "String2|SubString2"
  6. $Array[3] = "String3|SubString3"
  7. $Array[4] = "String4|SubString4"
  8. $Array[5] = "String5|SubString5"
  9.  
  10. $Input = InputBox("ArraySearch Demo", "String To Find?")
  11. If @error Then Exit
  12.  
  13. $Pos = _ArraySearch ($Array, $Input, 0, 0, 0, True)
  14. Select
  15.     Case $Pos = -1
  16.         MsgBox(0, "Not Found", '"' & $Input & '" was not found in the array.')
  17.     Case Else
  18.         MsgBox(0, "Found", '"' & $Input & '" was found in the array at pos ' & $Pos & ".")
  19. EndSelect
  20.